home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / amigabase / arexx / rx·dos < prev    next >
Text File  |  1995-02-03  |  2KB  |  82 lines
  1. /*==============================================================*/
  2. /*  rx·DOS                                                      */
  3. /*  $VER: V 02.03 (17.12.94)              AUTHOR: Falk Hildner  */
  4. /*==============================================================*/
  5. /*  DOS-Operationen ausführen                                   */
  6. /*--------------------------------------------------------------*/
  7. /*  Aufruf:                                                     */
  8. /*                                                              */
  9. /*  RX [Pfad/]rx·DOS                                            */
  10. /*==============================================================*/
  11.  
  12. OPTIONS RESULTS
  13.  
  14. CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
  15. wahl = RTEZREQUEST("A m i g a - D O S", " _Abbruch |_1     MakeDir|_2  ReName Dir|_3  Delete Dir|_4 Rename File|_5 Delete File", "Wähle ...",,)
  16.  
  17. IF wahl == 2 THEN
  18.  DO
  19.  UNTIL dirname1 > "" & dirname ~= dirname1
  20.   DO
  21.   dirname = RTFILEREQUEST(,,"Wähle Directory ...", "MakeDir", "rtfi_flags = freqf_nofiles",)
  22.   IF dirname > "" THEN dirname1 = RTGETSTRING(dirname,, "MakeDir " || dirname || "...", "Ok|_Abbruch",,)
  23.  END
  24.  IF dirname1 > "" & dirname ~= dirname1 THEN
  25.   DO
  26.   cmd = "MakeDir " || dirname1
  27.   ADDRESS COMMAND cmd
  28.  END
  29. END
  30.  
  31. IF wahl == 3 THEN
  32.  DO
  33.  dirname1 = RTFILEREQUEST(,,"ReName Dir ...", "Rename", "rtfi_flags = freqf_nofiles",)
  34.  IF dirname1 > "" THEN 
  35.   DO
  36.   dirname1 = LEFT(dirname1,LENGTH(dirname1)-1)
  37.   dirname2 = RTGETSTRING(dirname1,, "ReName " || dirname1 || " To ...", "Ok|_Abbruch",,)
  38.   IF dirname2 > "" THEN 
  39.    DO
  40.    cmd = "ReName " || dirname1 || " To " || dirname2
  41.    ADDRESS COMMAND cmd
  42.   END
  43.  END
  44. END
  45.  
  46. IF wahl == 4 THEN
  47.  DO
  48.  dirname = RTFILEREQUEST(,,"Delete Dir ...", "Delete", "rtfi_flags = freqf_nofiles",)
  49.  IF dirname > "" THEN
  50.   DO
  51.   dirname = LEFT(dirname,LENGTH(dirname)-1)
  52.   IF dirname > "" THEN
  53.    DO
  54.    cmd = "Delete " || dirname
  55.    ADDRESS COMMAND cmd
  56.   END
  57.  END
  58. END
  59.  
  60. IF wahl == 5 THEN
  61.  DO
  62.  filename1 = RTFILEREQUEST(,,"ReName File ...", "Rename","",)
  63.  IF filename1 > "" THEN 
  64.   DO
  65.   filename2 = RTGETSTRING(filename1,, "ReName " || filename1 || " To ...", "Ok|_Abbruch",,)
  66.   IF filename2 > "" THEN 
  67.    DO
  68.    cmd = "ReName " || filename1 || " To " || filename2
  69.    ADDRESS COMMAND cmd
  70.   END
  71.  END
  72. END
  73.  
  74. IF wahl == 0 THEN
  75.  DO
  76.  filename = RTFILEREQUEST(,,"Delete File ...", "Delete","",)
  77.  IF filename > "" THEN
  78.   DO
  79.   cmd = "Delete " || filename
  80.   ADDRESS COMMAND cmd
  81.  END
  82. END